sample sort template for PSO PARK REPORT  (PSORPTP)

CPM263>D P^DI


VA FileMan 22.0

Select OPTION: PRINT FILE ENTRIES  

OUTPUT FROM WHAT FILE: SORT TEMPLATE// 52  PRESCRIPTION
                                          (3395 entries)
SORT BY: RX #// @PARK  
START WITH PARK: FIRST// 1  YES
GO TO PARK: LAST// 1  YES
  WITHIN PARK, SORT BY: @STATUS  
  START WITH STATUS: FIRST// 0  ACTIVE
  GO TO STATUS: LAST// 0  ACTIVE
    WITHIN STATUS, SORT BY: #DIVISION  
    START WITH DIVISION: FIRST// 1
    GO TO DIVISION: LAST// 
      WITHIN DIVISION, SORT BY: 'ISSUE DATE  
      START WITH ISSUE DATE: FIRST// 010113  (JAN 01, 2013)
      GO TO ISSUE DATE: LAST// 
        WITHIN ISSUE DATE, SORT BY: PATIENT
     1   PATIENT  
     2   PATIENT INSTRUCTIONS  
     3   PATIENT STATUS  
CHOOSE 1-3: 1  PATIENT
        START WITH PATIENT: FIRST// 
          WITHIN PATIENT, SORT BY: 
STORE IN 'SORT' TEMPLATE: PSO PARK LIST      
                              (Dec 09, 2012@00:38) User #1  File #52     SORT  

DATA ALREADY STORED THERE....OK TO PURGE? NO// YES
DESCRIPTION:
  1>Sort for ACTIVE/PARK prescriptions
EDIT Option: 

SHOULD TEMPLATE USER BE ASKED 'FROM'-'TO' RANGE FOR 'PARK'? NO// 

SHOULD TEMPLATE USER BE ASKED 'FROM'-'TO' RANGE FOR 'STATUS'? NO// 

SHOULD TEMPLATE USER BE ASKED 'FROM'-'TO' RANGE FOR 'DIVISION'? NO// YES

SHOULD TEMPLATE USER BE ASKED 'FROM'-'TO' RANGE FOR 'ISSUE DATE'? NO// YES
FIRST PRINT FIELD: ^


PSORPTP  ;BHAM ISC/SAB - ACTIVE/PARK REPORT DRIVER ;
         ;;7.0;OUTPATIENT PHARMACY;*PaPI;DEC 1997
PARK     ;PRESCRIPTIONS ON ACTIVE/PARK
         I '$D(^PSRX("APARK")) W $C(7),!?5,"NO PRESCRIPTIONS ON PARK." Q
         S DIC=52,L=0,BY="[PSO PARK LIST]",FLDS="[PSO PARK]" G EN1^DIP


CPM263>D ^PSORPTP    

    * Previous selection: DIVISION from 1
    START WITH DIVISION: 1// ?

TO SORT IN SEQUENCE, STARTING FROM A CERTAIN DIVISION, TYPE THAT DIVISION
     OR ENTER 'FIRST' TO START FROM THE FIRST VALUE

    Answer with OUTPATIENT SITE NAME, or SITE NUMBER, or
        RELATED INSTITUTION
   Choose from:
   INACTIVE SITE     514  Inactive as of: Mar 1,2010
   INACTIVE SITE 2     800  Inactive as of: Mar 1,2010
   TEST PAPI     987  
   VEHU SITE     500  
    

    * Previous selection: DIVISION from 1
    START WITH DIVISION: 1// VE
    GO TO DIVISION: LAST// 
      * Previous selection: ISSUE DATE from Jan 1,2013
      START WITH ISSUE DATE: Jan 1,2013//   (JAN 01, 2013)
      GO TO ISSUE DATE: LAST// 
DEVICE:   VMS
ACTIVE/PARK LIST                               JAN 28,2013  01:16    PAGE 1
RX #         PATIENT                 DRUG                          ISSUE DATE
--------------------------------------------------------------------------------

              DIVISION: VEHU SITE


501271       FIFTEEN,OUTPATIENT      COAL TAR 0.5% SHAMPOO         JAN 10,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 15,2013


501101B      FIVE,OUTPATIENT         AMPICILLIN 250MG CAP          JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  FEB 13,2013


501102B      FIVE,OUTPATIENT         APRACLONIDINE HCL 0.5% OPH S  JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  FEB  3,2013


501214B      FIVE,OUTPATIENT         SIMVASTATIN 10MG TAB          JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  AUG 28,2013






ACTIVE/PARK LIST                               JAN 28,2013  01:16    PAGE 2
RX #         PATIENT                 DRUG                          ISSUE DATE
--------------------------------------------------------------------------------

501272       FIVE,OUTPATIENT         AZATHIOPRINE 50MG TAB         JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013


501280       SEVEN,OUTPATIENT        AMOXAPINE 50MG TAB            JAN 28,2013
            PHYS  PROVIDER,ONE                         LAST FILL  


501276       TWO,OUTPATIENT          BACITRACIN 500 UNT/GM TOP OI  JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013


501278       TWO,OUTPATIENT          AZATHIOPRINE 50MG TAB         JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  









ACTIVE/PARK LIST                               JAN 28,2013  01:16    PAGE 3
RX #         PATIENT                 DRUG                          ISSUE DATE
--------------------------------------------------------------------------------



501111A      ZERO,OUTPATIENT         ABDOMINAL PAD 7 1/2 X 8  STE  JAN  7,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN  7,2013


500986C      ZERO,OUTPATIENT         AMPICILLIN 250MG CAP          JAN  7,2013
            PHYS  PROVIDER,ONE                         LAST FILL  MAR 12,2013


501226B      ZERO,OUTPATIENT         BACITRACIN 500 UNT/GM OPHTHA  JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013


500996D      ZERO,OUTPATIENT         BANDAGE, ELASTIC ADHESIVE 1   JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013


501066C      ZERO,OUTPATIENT         CADEXOMER IODINE 0.9% TOP GE  JAN 24,2013








ACTIVE/PARK LIST                               JAN 28,2013  01:16    PAGE 4
RX #         PATIENT                 DRUG                          ISSUE DATE
--------------------------------------------------------------------------------

            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013


501274       ZERO,OUTPATIENT         SIMETHICONE 40MG CHEW TAB     JAN 24,2013
            PHYS  PROVIDER,ONE                         LAST FILL  JAN 24,2013

CPM263>